RRRRRRRRRRRR 
RRRRRRRRRRRR 
RRRRRRRRRRRR 
RRR ° 
RRR 

RRR 

RRR 

RRR 

RRR 
RRRRRRRRRRRR 
RRRRRRRRRRRR 
RRRRRRRRRRRR 
RRR ~=RRR 
RRR = RRR 
RRR = RRR 
RRR RRR 
RRR RRR 
RRR RRR 
RRR 

RRR 

RRR 


Bie LR tal 


Ager A NR: Rae ILENE ak : es 


$i 

Sy! 

NT! 

NT! 

NT! 

NT! 

NT! 

NT! 

MMM MMP SSSSSSSSSSSS NT! 
MMM MMM SSSSSSSSSSSS NT! 
MMM MMM SSSSSSSSSSSS NT! 
HM MPA ME MM SSS NT! 
MMMM MM SSS NT! 
MMMMMM  MMMMMM SSS NT! 
MMM MMM) «6OMMM «SSS NT! 
MMM MMM MMM SSS NT! 
MMM MMM MMM «SSS NT! 
MMM MMM SSSSSSSSS NT! 
MMM MMM SSSSSSSSS NT! 
MMM MMM SSSSSSSSS NT! 
MMM MMM SSS NT! 
MMM MMM $$$ NT! 
HMM MMM SSS NT! 
MMM MMM SSS NT! 
MMB MMM $$$ NT! 
MMM MMM $ss NT! 
MMM MMM SSSSSSSSSSSS NT! 
MMM MMM SSSSSSSSSSSS | NTS 
MMM MMM SSSSSSSSSSSS NTS 
NT! 

NT! 

NT! 

NT! 

| NT! 

| NT! 

| NT! 

NT! 


**F ILE**1D**RMOCRECOM 


(eee = eS eS SS SS 
Pe SS SS SS eS 

== 

z= 

== 
z= 

== 

== 
[= = = = eS Se SS SS SS 
(a St SS SS ee 

oooo0o0o00000o 

lelelelelelelejleajlal =) 
oo oo 
oo oo 
oo oo 
oo oo 
oo oo 
oo oo 

ooooo0o0o°00o 

felelelelelelejajlal=) 
ww Vw 
ww Vvwv 
ww ov 
ww a 
vv Vv 
Vv Vw 
ww vOwv 
ww ww 


VVVUVUYVUYUUW 
VYUYVUYYUYUUWY 


tus Wl 
wus wud 
wus uu Usui 
uuu usu usu 
usu usu wu 
usu usu usu 
wu uu wud 
Wu us ww 


ececac ca 

ecacacc ca 
cae ca ca 
ca ac coe 
cae ecaacac 
ca ecceccac 
ca ca 
ca ca 
q@Qacaaccacacacaca 
@w@acacacacaacacca 
Vv vw 
vw tenes 
Vu Vv 
Vv vv 
Vu ww 
Vw vv 
Vv vv 
Vu and 


VVVVYVUVUYUYUY 
YVYVVYVUYVYUYUYUUUWY 


Ooooooocoeoeo 
COooooooeoeoe 


oo oo oo 
oo oo oo 
oo oo oo 
oo oo oo 
oo oo oo 
oo oo oo 
oooooooooo 
Ooooocececo 


=Zz=zz=z = = ; = 

EEEEEEEEEEESEE 
acacc aa 
coacec ca 

aca ca aca 

ca <a coe 

cc aaca 

ca eaca 

ca ca 

ca cae 

qaaoaancacaacacacaac 

aacaoacaccacacacaca 


LLLLLLLLLL 
LLLLLLLLLL 


RMOCRECOM COMMON CREATE FILE 16-SEP-1984 00:15:06 VAX/VMS Macro v04-00 
Table of contents 

(¢ 15 DECLARATIONS 

(3) 25 RMSCREATECOM = PERFORM CREATE FILE FUNCTION 

(9) 6 RMSINI_CRE_RJR 

(10) 8 Rout ings to goureat CREATE attributes. 

(71) 835 RMSJNL_CREAT 


Page 


F 3 
RMOCRECOM COMMON CREATE FILE 16-SEP-1984 00:15:06 VAX/VMS Macro v04-00 Pose 1 | 
VOLSOBO mT Tet MCS te TORE ” id! 


SBEGIN RMOCRECOM,000,RM$RMSO,<COMMON CREATE FILE> 


Die tai tlh haat i tt tah a kh nt a dil 


COPYRIGHT (c) 1978, 1980, 1982, 1984 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED 


HIS SOF TWAR 


m mn-wo 


SHED UNDER A LICENSE AND MAY BE yee AND or ite 
TH THE TERMS OF SUCH LICENSE AND WITH THE 


H 

H 

be’ brovip NOTICE, hse SOFTWARE OR ANY OTHER 
E TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


E 
ERV 
IS FURNI 
DANCE Wl 
HE ABOVE 
MAY NOT 
NO TITL 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
Sateokat ite. NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 


:* 

** 

-* 

:* 

*® 

** 

:* 

:* 

:* OTH 

:* TRANSFERRED. 
:* 

:* 

'* 

** 

** 

'* 

;* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
'® 
:® 
-* 


*® 
® 
® 
® 
® 
® 
® 
* 
® 
® 
© 
® 
® 
*® 
® 
* 
& 
® 
® 
* 


(LAR RRARARRRRASARRARARRRARSASARRRRRARRRRRRRRRRRRRRARRARRRRRAR RRA RRR ARR RASS DS SD SD 


; Facility: rms32 


; Environment: 
star processor running starlet exec. 


; Author: L F Laverdure, Creation Date: 11-MAY-1977 
; Modified By: 


v03-028 SASOD0y Ron Sch 15-Jun-1984 
Check for errors from RASCREACC SETI. 


v03-027 Jw10175 Jim Teague 10-Apr-1984 
Move ATR page deallocation code. 


v03-026 0GB0033 Donald G. Blair 22-Mar-1984 
Fill in XABSL _ACLSTS during call to rm$xab_scan. 


V03-025 JWT0166 Jim Teague 20-Mar-1984 
Use Cynenicati pret Located scratch page for accumulating 
ATRs for Q10s. 


v03-024 0GB0007 Donald G. Blair 04-Mar-1984 
Make changes related to the way we call the ACP in order 
to support access mode protected files. 


V03-023 JWwT0148 m Teague 14-Dec-1983 
Enforce RU seutines (RU, ONLY_RU, NEVER_RU). 


NOAUE AR @ OOOO UE UID  O OD NAUE WIN  O ODNOA UE WN 0 OD NA UE - OOONOUE win 


Abstract: this module performs the create file fcp function. 


MUM BB BBB BEB BWW inno 2 Ss SS 
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v03-022 LMP0133 L. Mark Pilant awe -1983 14:53 
Get default protection from PCB instead of P space. Also 
don't supply the protection attribute unless explicitly 
given in a PROtection XAB. 

V03-021 RASO164 Ron Schaefer 27-Jun-1983 

Fix 5 broken branches to RMOJOURNAL routines. 
v03-020 KPLO0006 Peter Lieberwirth 22-Jun-1983 


Add support to journal expiration date on file creation. 
Add a mask to tell recovery which attributes have been 


journaled. 
v03-019 KPLOOO0S Peter Lieberwirth 16-Jun-1983 
Fix bug in MOVC3 of FIB to create AT entry. 
v03-018 TSK0001 Tamar Krichevsk 15-Jun-1983 
Fix broken branches into Journaling psect. 
V03-017 KPLOO04 r Lieberwirth 3-Jun-1983 
‘te B apernes see SCREATE attribute handling. Use correct 
IB entry. 
v03-016 KPLO003 Peter Lieberwirth 30-May-1983 
Fix error path bugs introduced in V03-015. 
v03-015 KPLO002 Peter Lieberwirth 16-May-1983 
Add initial support for Jgurnel ing SCREATEs. Clean 
up some old code, also. Changes for robust RJR format. 
v03-014 RASO153 Ron Schaefer ay? 1983 
Delete reference to SXABACEDEF missed by aneo 48. 
V03-013 RASO148 — Ron Schaefer 26-Apr-1983 
Add initial support for extended XABPRO. 
v03-012 gundei6 Jeffrey W. Horn 14-Apr-1983 


Re-organize JOurnes tne su pport so that we always 
write journal names and th e Id-ACE after the file 
is accessed. 


V03-011 JWHO196 Jeffrey W. Horn 18-Mar-1983 
Add support for XABACE. 
v03-010 re bep Stephen H. Zalewski 21-Dec-1982 


Store the Files-11 hbk and ebk in different fields in the 
ifb than we keep the swapped hbk and ebk. 


V03-009 JWHO161 Jeffrey W. Horn 21-Dec-1982 
Reset some FIB fields when perfoming I0$_MODIFY 
to write journal name. 


v03-008 MCNO001 Maria del C. Nasr 08-Dec-1982 
If the FIB al jonnent option is RFI with a file id of 
zero, change it to ANY so that we do not get a file 
not found error from the ACP. 


Pelee ele lele ele lelelel ele olelelele lolol ele lel aleleoleololololelolelolololeleleoleleololeoleleleloleoleololeolololololo) 
— MQOODOOOOCOOOOOOOWO OOO 00090000 09 09 09 09 09 09 SIN SI NSIENSINSINSNINIP AAPA AAOOUM 
FAN OOO NA NE WIN 0 OD NAW EWN O OD NAU EWN 0 OD NOAOU EWN OOONAUE WOO 


COoooooooooo 
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Do a better job deleting the file after errors returned by 
RMSSETEBK by gets ing ¢ the DID from the FWA FIBBUF instead 
of the user N The problem is there may be no NAM 
block, so a dangling directory entry can result. 


V02-027 MCNO007 Maria del C. N 12-May-1981 
Define new symbol for old Length “of backup dare and time XAB. 


V02-026 JAK0048 J A KRYCKA 25-SEP-1980 
Move network specific create code to RMSOCREAT and avoid 
spurious setting of NAMSV_HIGHVER and NAMSV_LOWVER bits. 


v025 REFORMAT D M WALP 24-JUL-1980 


v04-000 19 RMS.SRCIR RMOC CRECOM.MAR; 1 
00 115 ; 
0 116 ; v03-007 ACG0306 Andrew C. Goldstein, 13-Dec-1982 14:57 
3 1} : Remove obsolete file. header symbols 
$ 119 : V03-006 JWHO103 ey W. Horn 20-Sep-1982 
120 ; Remove RMSASSUNL” “nse PJNL calls. This code 
44 13 has been moved to RMS$SETEBK in RMOACCESS. 
444 1 : : V03-005 JwWwHO110 Jeffrey W. Horn 29-Sep-1982 
44 : : 3 Fix typos in v03-004. 
8008 1 § : V03-004 JWHO109 rey W. Horn 29-Sep-1982 
4 ! f : Fix problems with” uff ogic in V03-003. 
0000 19) : V03-003 JWHO002 effrey W. Horn 31-Aug-1982 
0000 130; Fix problems CIF logic in V03-001. 
444 3] : Add support for Recovery Unit Journals. 
0000 135 ; v03-002 KBT0203 Keith B. Thompson 23-Aug-1982 
444 13 : Reorganize psects 
0000 136; V03-001 JWHOOO1 Jeffrey W. Horn 02-Jul-1982 
444 13 3 Put in journaling support. 
0000 139; V02-028 KPLOO001 Peter Lieberwirth 28-Dec-1981 
0000 140; 
0000 i411; 
0000 136 : 
0000 143; 
0000 144; 
0000 145; 
0000 146; 
0000 147 ; 
0000 148; 
0000 149; 
0000 150; 
0000 151; 
0000 136 : 
0000 153; 
0000 154 
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++ 
RMSCREATECOM 


Calling sequence: 


Input Parameters: 


; Implicit Inputs: 


Output Parameters: 


; Implicit Outputs: 


E 16-SEP-1984 0:15:06 VAX/VMS Macro V04-00 Page 6 
RFORM CREATE FILE FUNCT 5-SEP-1984 16:21: RMS. SRCIRMOCRECOM.MAR; 1 (3) 


-SBTTL RMSCREATECOM = PERFORM CREATE FILE FUNCTION 


RMSCREATECOM - 


this routine sets up the fib from the various user options, directory id and) 
allocation information, builds the attribute List to write the user record 
and other attributes, builds the qio parameter List on the stack 

issues the qio to the acp to perform the create (or access if ‘cif’ bit set) 
initializes the hbk field of the ifab, and finally calls rm$fillnam to retur 
the resultant name string. 


this routine also calls subroutines to journal the S$CREATE, if 
journaling is — place. one subroutine collects all the information 
necessary to journal, another actually writes the journal entries 

to the open journals. 


bsbw rm$createcom 


rii impure area addr 
ri0 fwa address 
r9 ifab address 
r8 fab address 


the contents of the parameter blocks Listed 
above, especially: 


ifb$l_prim_dev 
fwa$q_dir 
fwaSq_name 
fwa$l_atrladr 
$l_echnl 


_fac 
_tfmorg thru ifb$c_fhaend 


aA te ot se 


r0 status code 
r ib addr 
ri-r5,r7,ap destroyed 


ifb$v_accessed set 


ee 
v04-000 


AUF WN OOONOUS WHO 
PTR TETRA TEETER TET eee 


POPOPORONONONY 2 2 SS SS SS 


E 
RFORM CREATE FILE FUNCT 


16-SEP-1984 
=SEP=1984 


0:15: 
6:21: 


ft 


AX/VMS Macro V04-00 
RMS.SRCIJRMOCRECOM.MAR; 1 


nam$l_rsl set to length of resultant string, if any 


ifb$l-ios 
ifb$l~hbk 


fab$l“stv set to system error code on failure 


Completion Codes: 


standard rms, including suc,rer,wer, 


flk,prv,dnf, ful, 
Side Effects: 


and cre. 


ary have switched to — 
all user structures except fa 


must be reprobed. 


at ast level. 


b and 


nam 


Vv 
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RMOCRECOM COMMON CREATE FILE 16-SEP-1984 00:15: AX/VMS Macro Vv04-00 Page 8 
yOs-000 RMSCREATECOM = PERFORM CREATE FILE FUNCT ett 90337599 RMS. SRCIR moc RECOM.MAR; 1 - (4) 
pen 8 RMSCREATECOM:: 
0 E0 4A 9 BBS wpe yey DIR,- 
06 6 bee 0 IFBSL_PRIM_DEV(R9),10$ ; branch if files-oriented 
ef 1 RMSSUC 3; show success 
017A 31 005 ¢ BRW FILNAM 3: fill in nam block 
an 
0054 5 ; unless ‘tmp’ or ‘tmd' set in fop, get the directory id 
Oost 36 | gs | 
| 
18 D3 boe4 38 10$: BITL #FABSM_TMP!FABSM_TMD,- 
04 A8 826 39 FABSL_FOP(R8) ; tmp or tmd set? 
0D 12 5 40 BNEQ SETTMP ; branch if yes 
FFAS" 30 OO5A 341 BSBW RMSSETDID ; get directory id 
50 €8 005D 4s BLBS RO, SETUP 3 continue if ok 
05 0060 43 CREXIT: RSB ; get out on error 
ae 
0061 46: handle bad alq value 
0061 347 ; 
foe] «328. ERRALG: | 
0061 330 " RMSERR ALQ | 
05 0066 51 RSB | 
cae | 
0067 354: set tmp bit to flag this as a temporary file | 
o0g7 386 | 
0067 357 SETTMP: SSB #IFBSV_TMP, (R9) : flag temporary file 
joes 389 
0068 $09 > call rm$creacc_set1 to do common fib and attribute List set up 
aoe 
AfF93" 30 BOe8 HEB serve: psey  enscpeace ser 
44 AA B4 0071 365 CLRW FWASW_UCHAR(R10) ; initialize user characteristics 
bore 362 ; 4 
0074 368 : r6 now points to fib F 
0074 383 3 r5 has address of where to build attribute List entries ; 
oo74 374 ee: | F 
074 i ; \must include code to handle magtape label xabs.\ F 
apne yg gti ey! 
$074 75: handle xabs | F 
Bt ae ia | 
5C 89 AF 9E bore 78 MOVAB CRE_XAB poss, AP : set xab scan args addr F 
FF85*° 30 0078 79 BSBW RMSRAB_SCA 3 process xabs a 
€2 50 €9 0078 44 BLBC RO cRERIT 3 get out on error F 
05 «£0 ove 1 10$: BBS #DEVS ; | E 
36 69 8 ¢ IPbSe VpRIM: “DEV(RO), 50$ ; branch if magtape | : 
0083 i | F 


N 3 
RMOCRECOM COMMON CREATE FILE -SEP-1984 t Ye: 215: +06 AX/VMS Macro V04 my Page 
v04-000 RMSCREATECOM = PERFORM CREATE FILE Funct | -SEP-1984 16:21: RMS.SRCIR RMOC RECOM.MAR; 1 
O08 i : if disk, process initial allocation request 
19 A&B 00 it 8 20$ MOVL FABSL_ALQ(R8) ,- 
18 Ab 00 89 EABSLIEXSZ(RO) ; set alloc size 
oe. Boe 90 BEQL 50$ 3; branch if none 
D64«=6©19 +0089 91 BLSS ERRALQ ; branch if bad 
06 68 31 + #24€1 0088 3 BBC #FABSV_UFO+FOP,(R8),30$ ; branch if not ufo 
10 A801. «C1 O0BF S39 ADDL3 | #1-FABSL ALQ(R8) ,= 
74 Ad 0093 39% 1FBSL_EBR(R9) ; set eof blk from alq 
0095 95 30S: SSB #F1BS0_EXTEND,- 
0095 36 FIBSW EXC XCTL (RO) ; enable extend 
1A 54 00° EO O0O9A 9 BBS S*#XBC$C_CREALL1,R4,50$ ; branch if alq xab seen 
09 68 35 Ei O09 98 BBC #FABSV_CBT+FOP, (R8).40$ ; branch if cbt bit off 
20 OOA 99 BISB2  #1aFCHSV_CONTIGB,- 
44 AA 00OAS 400 FWASW UCRAR(RIO) ; give file cbt attribute 
01 E3 O0A6 401 BBCS #F 1BS0_ALCONB 
OD 16 A6 00A8 402 FIBSW NEXCTLCRS) , 50$ ; ask primitive for best try 
OOAB 8403 ; ane 
09 68 34 +j.—1 QOAB 404 40S: BBC #FABSV_CTG+FOP,(R8),50$ ; branch if contig bit off 
05 88 OOAF 405 BISB2 #FIBSM- ALCON! F IBSM FILCON,~ 
16 A6 00B1 406 FIBSW_EXCTL(R6) ; ask acp for ctg extend 
80 8F 88 0083 407 BISB2 #iaFCA$v_CONTIG 
44 AA 00B6 408 FWASW NUCRARCRIOS ; give file ctg attribute 
00B8 409 
00B8 410 ; 
00B8 411 ; swap words of ebk to be files-11 compatible and insert org into rfm/org 
0088 a6 ; so that it gets written with the file attributes. 
00B8 413; (note: hbk is zero) 
00B8 414 ; 
00B8 415 
58 Ad 74 AY 10 9C Q0B8 416 50$: ROTL #16, 1FBS$L_EBK(R9) , IFBSL_EBK_DISK(R9) 
50 ADs «0G 04 23 A9 FO Bore rt INSV 1FB$B _ORGCASE(R9) , AIF FBSY _ORG, #IFBSS_ORG, IFBSB_RFMORG(RI) 
00c5) «6419 ; 
00CS 420 ; If the alignment option is RFI with a file id of zero, it means create 
0OCS 421 ; the file next to itself. Since the ACP is {going to try to look for a 
00Cc5 $56 ; file that does not exist yet, make the option ANY, which is really what 
00C5 423 : it should be mean on a create. 
00c5 $52 3 
00cS 3 425 
04 21 A6 91 OOCS 426 CMPB FIBSB_ALALIGN(R6) ,#F IBSC_RF I 3; RFI option? 
OE ig 00C9 427 BNEQ ; branch if not 
22 AB OD Bere 428 TSTL F IBSW_LOC_FID(R6) 3 zero file id 
09 12 #OOCE 429 BNEQ 3; branch if not 
26 AB ODS 8008 430 TSTL F IBSW_LOC_RVN(R6) 
04 12 OOD 431 BNEQ 
21 A6 00 90 sites 438 MOVB #XABSC_ANY,F IB$B_ALALIGN(R6) 3; make it ANY 
0009 636 3 , . 
0009 435 : Enforce RU bit settings, specifically ONLY_RU 
308 $38 
009 437 bos: 
7 6 68 0D9 $38 eve, R1 ; Save R1 first 
QOAO C9 $9 3 0DB 439 BICB #1FBSM_NEVER_RU,IFBSB_JNLFLG(RY) ; Longe ing NEVER RU, is 
00A0 (9 «(0393 oe0 440 BITB #1EBSM_RU! 1FBSM_ONLY_RU, IF BSB_ JNLFLG(R9) ; any RU“bit set? 
1E 3 O0E 441 BEQL 62$ : If not, go on with stuff 
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RMOCRECOM COMMON CREA qe FILE SEP-1984 00:15: AX/VMS Macro Vv04-00 Page 10 | 
v04-000 RMSCREATECOM = PERFORM CREATE FILE FUNCT oe SEP=1984 90: :21: 99 YRS. SRCIR MOCRE ECOM.MAR; 1 . (4) | 
51 00000000 ' 9F 0 0E7 rai! MOVL @#CTLSGL_RUF ,R1 ; or loaded? 
1 OE 44 BEQL 61$ o RUF, check for ONLY _RU | 
10 11 Al 1 €0 OF 4h a: BBS #RUCBSV_ACTIVE ,RUCBSB_CTRL(R1), obs"? In hut Then we're c&ol 
01 93 OOS 446 BITB - #IFBSM_ONLY_RU ; If ONLY_RU clear (RU | 
OOA0 C9 OOF 44 IFBSB_ INLFLG(RO) ; must be set), and not 
09 13 OOFA 448 BEQL 62$ + in RU then that's ok 
OOFC 449 RMSERR NRU : However, if ONLY_RU set and not in RU: error 
51 8EDO 0101 450 POPL R1 ; Realign stack 
05 0104 451 RSE 
0105 $26 
8192 453; 
105 454 ; process the mxv, sup, and cif options 
0105 455; 
0105 456 ; for mxv & sup, need merely copy to fib 
0105 457; 
0105 458 é2$ 
51 BEDO 0105 459 POPL R1 : Pop R1 | 
0108 460 ASSUME FABSV_SUP EQ FABSV_MXV+1 
0108 461 ASSUME FIBSV-SUPERSEDE EQ-FIBSV_NEWVER+1 | 
50 68 02 21 #&2EF 0108 466 NAMCTL: EXTZV #FABSU_MXV+FOP,42,(R8) ,RO 
14 A6 02 09 50 FO 0100 46 INSV RO,#FIBSV_NEWVER, #2,F IBSW_NMCTL (RO) 
03 68 39 4 0113 464 BBC #FABSV_CIF+FOP, (RB), SETS 
0116 1 0117 465 BRW DOCIF | 
011A 466 
O11A 467: : | 
Baan 138 ; call rm$creacc_set3 to finish building the qio parameters for create 
011A 470 
FEE3' 30 011A 471 SET3: ®BSBW RMSCREACC_SET3 


¢ 


RMOCRECOM COMMON CREATE FILE 16-SEP-19 AX/VMS Macro V04-00 Page 
V04=000 RMSCREATECOM’= PERFORM CREATE FILE FUNCT \SagePo1on4 Sorct sey FANG ee CGT Or Oaks: Pao 
11D 473 
11D 474; 
11D 475 ; set i/o function code and do the create 
ib an 
F3 ef 9A 0110 478 MOVZBL #108. CREATE! 10$M_ CREATE! 108M ACCESS,=- 
0 120 479 z set qio function code 
04 68 24 €1 121 480 BBC #F ABSV rere (R8),10$ ; branch unless tmd set 
0125 481 SSB s*#1080 0 E, RO ; mark file for delete 
FED4' 30 0129 rt) 10$: BSBW RMSFC PENG” ; do the create 
03 39 58 Q012C 3848 BLBS 0 GETONL : branch if ok 
01 1 o1 F 484 BRW ERRCREATE : branch on error 
013 486 
013 487 ; 
013 488 ; Journal the SCREATE if journaling. Then retrieve journal names from 
013 489 ; XAB and mark the file with them. 
013 490 ; 
BI 35 491 
01 136 GETJNL: 
50 DD 0132 49 PUSHL RO ave status code 
OOAO C9 20 CA 0134 494 BICL2 #IFBSM “pir rey IFBS$B_ INLFLG CR) don't care about NEVER_RU 
00a0 C9 «95-0139 495 TSTB. —‘«IFB$B_JNLFLGTR9S : ournal ing bits seen? 
SF 13 0130 496 BEQL SETHB "BR nch if not 
5D 69 05 EO Bize rh tA BBS #DEVEV_ S$QD,1FBSL_PRIM_ DEV(R9) rERRJOP. ; no disk, no journaling 
8143 r+ ; Collect journaling information from current attribute List. 
30 0143 501 PUSHR #*M<R4,R5> ; save work regs 
OOOOO000'EF 16 0145 288 JSB RMSALLOC RJB_BDB ; get an RJB 
30 BA 0148 50 POPR ay a i ; restore work regs 
55 50 5? 0140 504 BLBC ; out on erro 
011A 30 0130 505 BSBW RMSENT CRE_RJR : Set up the SCREATE RJR 
015 506 
0153 507 ; 
Oi 208 ; Mark the new file for journaling as specified in the XAB. 
58 AA DO 0153 510 MOVL FWASL_ATR_WORK(R10),R5 ; set up new attr List. 
OOOOOO00'EF 16 0157 # 511 JSB RMSGETJNL ; get journal names for create 
45 50 €9 8128 21§ BLBC RO,BR_AID ; get out on error 
8198 ae ; Assign channels to the appropriate journals. 
30 BB $168 218 PUSHR #*M<R4,R5> ; save XAB flags, attr address 
OOOOOOO0'EF 16 016 1 JSB RMSASSJNL 3 assign journal channels and init 
0168 518 ; journal data structures 
30 BA 0168 519 POPR #*M<R4,RS> ; restore XAB flags, attr address 
38 50 = EO Hes 259 BLBC RO,BR _AID ; get out on error 
Shed 5 ¢ ; Journal the SCREATE to the appropriate journals. 
9186 30 0160 é 4 BSBW RMSJNL_CREATE ; write the RJR to the journals 
32 5 £9 173 é 5 BLBC RO,BR_AID ; get out on error 
7E 16 Ab C 017 5 ‘ MOVZWL FIBSW_EXCTL(R6),-(SP) ; save EXC 
7E 618 Ab D 0177 5 $ MOVQ FIBSL_EXSZ(R6) ,-(SP) 3 save Bycye EXVBN 
16 A6 B4 0178 52 CLRW = FIBSWTEXCTL(R6S : reset EXCTL to zero 
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LE Ig- SE 
ERFORM CREATE FILE FUNCT 5=SEP- 
ASSUME F1BSL _EXVBN EQ 
CLRQ F ABS EXSZ(R6) 
CLRL 
PUSHL 10 
PUSHL FWASL_ATR_WORK(R10) 
BSBW RMSFCP_P4-P2 
MOVZBL #10$_MODIFY,RO 
BSBW = RMSFCPFNC 
MOVQ (SP)+,FIBSL_EXSZ(R6) 
MOVW (SP) ,FIBSW_EXCTL(R6) 
TSTL = (SP) 4 
BLBC —- RO, ERRMOD 
SETHBK_BR: 
BRB SETHBK 
ERRJOP: RMSERR JOP 
BR_AID: BRB XI TPOP 
ERRMOD: RMSERR CRE,R1 
BSBW = RMSMAPERR 
BRB XITPOP 
SETHBK: MOVL  FIBS$L_EXSZ(R6),- 
IFB$L~HBK(R9) 
MOVAB CRE _XAB_ARGS2,AP 
BSBW RMS$RAB_SCAN 
BLBC —- RO, XI TPOP 
SETEBK: BSBW = RMSSETEBK 
BLBC RO, DELSHR 
POPR *M<RO> 
ASSUME IFBSV_RFM EQ 0 
ASSUME IFBSS"RFM EQ 4 
ICB2  #*XFOTIFB$B_RFMORG(R9) 
FILNAM: PUSHL RO 
BSBW  =- RMSFILLNAM 
BLBC RO, XITPOP 
TSTL = R? 
BEQL =: 108 
set 


a 
o 
A ad 


| 
: 


ASSUME 


Pa19B4 o:21:1 ERMS.SRCIANOCRECOM.RAR: 1 


Sete eee 


Pete te Ge te 


RMS.SRCIRMOCR 


<F IBSL_EXSZ+4> 

; also zero EXSZ, EXVBN 

; indicate eng of attr List 
; set up Sin » 


Q10 . 2 BS 'bo list 
Q10 


; set modify Gute tlen 
; do the modify 


; restore EXSZ, EXVBN 
; restore EXCTL 

; pop EXCTL 

; get out on error 


continue with create 


; set hi block 


set xab arglist addr 


; go set alq in xaball 


get out on error 


o set ebk, accessed 
elete on error 
restore status code 


; leave only rfm in rfmorg 


save success code 
return resultant string 
branch on error 

is there a nam blk? 
branch if none 


the lowver and highver flags in the nam block 


FIBSV_HIGHVER EQ FIBSV_LOWVER+1 
WARSY Peas EQ NAM$V_LOWVER+1 


FIBS7_L 


VER,A2,- 
Het ARC TL STUASt -F IBBUF (R10) ,~ 


R1,#NAMSV_LOWVER,#2,- 
NAMSL FNBTR7) 
#*McRO> 


; get version bits 


3; and set in nam blk 
3; restore success code 


RMOCRECOM COMMON CREATE FILE 1 mites 9 9: }3: 06 AX/VMS Macro V04-00 Page 
v04-000 RMSCREATECOM = PERFORM CREATE FILE FUNCT SEP-1984 RMS.SRCJRMOCRECOM.MAR; 1 
02 A O1EA 7 XITP ih POPR #*M<RI> ; remove success code 
5 QI1EC § EXIT RSB ; and return with error 
1ED 890 
1ED 91 3 this code will only be executed if we return an error status from 
150 6 : rm$open_shared which is called in the subroutine rm$setebk. 
Biee 534 
50 OD OED 95 DELSHR: PUSHL RO ; save status code 
52 40 8F 9A O'TEF 298 MOVZBL #FIBSC_LENGTH,R2 : get length of fib 
O1F3) 3659 CSB #IMPS$V_TEMP1,(R11) ; clear sO flag 
reps" 30 aire 238 BSBW RMSGETSPC1 3 go get *Fib 
04 5 EB OFA 9 BLBS RO, ; ranch if ok 
O¢ BA QO1FD 600 POPR #*M<R1> ; pote up stack 
3 11. OFF 601 BRB XITPOP 3; lea 
1 OD $301 O06 20$: PUSHL R1 3 push fib address 
40 8F 9A 0203 60 MOVZBL #FIBSC_LENGTH,-(SP) ; push length of fib 
11 69 35 EO 0207 604 BBS #IFBSV_ TMP (R9) DEL ; branch if temp file 
0208 605 SSB #F IBSV~F INDF ; 
020B 606 FIBSW_AMCTL(R1 set findfid bit 
O1FE CA 80 os? 607 MOVW FIBSW- ~DIb+FWAST -F 1BaUF (RIO). - 
OA Al 0214 608 FIBSW_DID(R1) t did 
0200 CA DO 0216 609 MOVL FIBS$W_DID BH ed _FIBBUF (RIO) ~ 
OC Al 021A 610 F IB$WDID~SEQ(R1) ; set did sequence and rvn 
0135 8F 3C belt 611 DEL: MOVZWL 9 #<1O$_DELETE! 10$M_ DELETE>, - 
59 0 $y o18 RO 3 set i/o func code 
7 7C QO221 61 CLRQ -(SP) : set p6 = p5 = 0 for $qio 
FDD * 30 0223 614 BSBW RMSFCPFNC _P4 ; go do the delete 
14 0226 615 POPR “M<R2 ; get fib addr, length 
FDDS' 30 0228 616 BSBW RMSAETSPCI t return the space 
03 BA 0228 617 POPR #*M<RO,RI> 3 restore registers 
FDDO" 31 022d 618 BRW RMSCLSCU 3; close cleanup 
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RFORM CREATE FILE FUNCT 5=-SEP=1984 
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; otherwise create - do remaining setup & 


DOCIF: B6BS 
JSB RMSRTVIN mL ; 
RMSCREAC 


od 
oO 
wr 


BBC #F ABSV er ege: (R8) ,20$ 


SSB $*#10$0_DELETE.RO : 
20$:  BSBW RHSt ECPE PFACe ; 
BLBC RRCREATE : 
CMPW RO. eases “NORMAL : 
BEQL $ ; 


BRW GETJNL 


‘cif’ and file already existed - switch 
60$: CMPB #IFBSC 
IFBSB “ORGCASE (ROD 
BEQL 70$ 


MOVAB atthe CIF, (SP) 
70$: BRW RMSSET 


‘ 
: process error on create 


ERRCREATE: 
RMSERR CRE,R1 
BRW RMSMAPERR 


BSBW 
MOVZBL #108. ACCESS osm. create! fosn” Aece 


7:96 AX/VMS Macro V04-00 
RMS.SRCIRMO CRECOM. MAR; 1 


access 


: ‘cif’ bit is set indicating open file it it exists, 
’ n 


ah as SQD,1FBSL_PRIM_DEV(R9), ah branch if not disk 


set . for read of journal names 
At i setup 


set gio func tion code 
if tmd not 

mark file Pty delete 
do access/create 
branch on error 

was file created? 
branch if not 


re-join create 
to ‘open' 


indexed, rm$create3b 


change return pc 
& go finish up open 


default error code 
go map the error 


RMOCRE COM Saag 


G 4 
FILE 16-SEP-1984 215: AX/VMS M y~ 00 
v04-000 RMS INI es Pa Rc HAMOCRE TG shee 


T 
RJR “SEP=1984 16:21: RMS. SRCIRMOCRECOM.MAR; 1 
; . SUBTITLE RMSINI_CRE_RJR 

RMSINI_CRE_RJR 


This routine is used to fill in the necessary information to re-do 
a SCREATE operation. 


Input Parameters: 
ri0 ° fUAS 
Implicit Inputs: 

JNLBDB = for RJR 
; Output Parameters: 

r0 - status 

3 Implicit Outputs: 

3 RJR filled with info required to re-do SCREAIE. 
; Side Effects: 

None. 


692 RMSINI_CRE_RUR: 


69 
OOBC 8F 6B 694 PUSHR #*M<R2,R3,R4,R5,R7> 3 save work registers 
50 D4 o8? CLRL RO 3; anticipate the worst 
844 + Get RJR address. 
54 30 A9 09 699 ° MOVL FBSL_JNLBDB(R9) ,R4 ; get address of journaling BDB 
67 13 0 700 BEQL ; get out if none 
57 18 A4 00 0 701 MOVL BRE. ADORIRS) AP 3 get RJR address 
61 1 oe BEQL 0$ i; get out if none 
704 ; 
P83 ; Handle file attributes. 
55 58 AA 00 709 sa MOVL FWASL_ATR_WORK(R10),R5 ; get address of attribute List 
02 a5 B 709 : TSTW ATRSW_TYPE(RS) : is an attribute present? 
2D «(1 710 BEQL 4 : if eql, no - all done 
54 FDBE CF ODE 711 MOVAL TABLE,R4 ; ty address of table of attributes 
at 158 : to journal (and their action routines) 
64 «BI 6 714 ‘ CMPW JNLSW_ATTR_TYPE(R4),- ; is this table entry identical to this 
02 AS 8 715 ATRSW_TYPETRS) ; entry in the attribute List? 
% WW 1 rs BNEQ 208 : if NEQ no, not equal 
000002B0'EF  9F 6 33 718 PUSHAB 30% > push return address from CASE 
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RMOCRECOM COMMON CREATE FILE 16-SEP-1984 00:15:06 VAX/VMS Macro v04-00 Page 
yo4<000 RMSINI_CRE_RJR gree p= 1986 46; 33:99 Pans eactanoe CRECOM.MAR; 1 “ 
CASE TYPE = B,- 
SRC = JNLSL_ACTION_RTN(R4),- 
ISPLIST = <OSER_CHAR,FILE_PRO,FILE_UIC,RECORD_ATTR,EXPIRE> 
05 20s: RSB ; to 308 if bad case offset 
54 08 CO : ADDL2 A#JNLSC_ENT_SIZE,R4 + point to next entry in table 
64 85 TSTW JNLSW_ATTR_TYPE(R4) ; is there another entry in table? 
DD 12 30S: BNEQ 15$ 3 yes, go compare with attribute 
55 08 co "  ADDL2-—s MATRSS_ENT_SIZE.RS5 ; point to next attribute 
=. BRB 10$ ; gO process it 
40$: : all done with attributes 


: Copy FIB. 


64 A? 14 BA 10 AA 28 : MOVC3 FWA$Q_FIB(R10),aFWASQ_F1B+4(R10) ,RURST_C_FIB(R7) 


: Copy Filename. 
MOVAL RJRST_FILENAME(R7) ,R3 3 get name buff addr 
ASSUME RJRSS_FILENAME EQ 256 


53 00C4 C7 ODE 


: Set buffer size to 255 because the GETFILNAM code builds a NAM block, etc... 
; and can only cope with a size that fits in a byte. 
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54 OOFF 8F 3C MOVZWL #<RJRSS_FILENAME-1>,R4 3; set size of buffer 
a! et al cF 16 JSB RMSGE TF ILNAM ; go get file name 
58 A 54 90 MOVB R4,RJR$B_FNS(R7) ; put length in entry 
: Fill in the rest of the journal record. 
04 A? 23 09 90 : MOVB irose een) arene ORG(R7) ; file teense 
03 A? 01 90 MOVB #RIRST_FILENAME ,RJRSB_ERTRY_TYPE(R7) ; ename 
05 A7 04 90 MOVB #RIRS_ CREATE, RiRSB _OPER(R7)~ 3; RMS operation 
50 01 400 MOVL #1,R0 : indicate success 
OOBC 8F A 50$: POPR #*M<R2,R3,R4,R5,R7> 3; restore work registers 
5 RSB 3; to caller 
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mm 


»SUBTITLE Routines to journal CREATE attributes. 


Action routines for journaling S$CREATE attributes. 
Inputs: 
R5 points to attribute. 


765 
£66 3+ 
E 767 ; 
E5 £08 ; 
E 8 : 
E 770 ; 
E 771; 
E5 ae 3 
eS 7733 R?7 Soiate to RJR. 
cs are = 
E2 48 ; Outputs: 
6 eR 108 3 RJR CREATE attributes filled in, MASK longword also filled in. 
O02E5 779 ; Side Effects: 
O2E5 780; 
QO2E5 781; R4 and RS must be preserved. 
02E5 4 ; 
QO2E5 783 ;-- 
O2E5 784 
O2E5 785 ;++ 
O2E5 786 ; User Characteristics 
02E5 787 ;-- 
Ogee 788 
O2E5 789 USER_CHAR: user characteristics 
02E5 790 $SB #RJRSV_ATR_UCHAR,RJRSL ATR. FLAGS(R7) ; indicate UCHAR 
4C A? 604 85 DO O2EA 791 MOVL @ATRSL_ADDR(RS), RURSL -OCHAR(R7) ; copy characteristics 
05 O2EF 443 RSB ; to main routine 
O2FO 79 
O2FO 794 ;++. : 
O2FO 795 ; File Protection 
02F0 796 ;-- 
O2FO 797 ' 
O2FO 798 FILE_PRO: file protection 
OF 799 SSB #RIRSV_ATR_PROT,RURSL atk FLAGS(R7) ; indicate PROT 
44 A7 0485 D0 O2F 800 MOVL  @ATRSLZADDR(RS),RIRSL_PROT(R7) ; copy protection 
05 O2FA 801 RSB 3 to main routine 
02FB 4 
O2FB 803 ;++ 
O2FB 804 ; File's UIC 
O2FB 805 ;-- 
O2FB 806 
O2FB 807 FILE_UIC: > ttte's We. 
ia 808 Ss #RIRSV_ATR_UIC,RJRSL_ATR FLAGS (R7) 3 indicate UIC 
40 A7 0485 00 0300 809 MOVL  @ATRSLTADDR(RSS ,RURSC_UIC(R7) ; copy UIC 
05 0305 £810 RSB : to main routine 
0306 811 
0306 HE p++ i 
0306 13; Record Attributes 
0306 814 ;- 
Babe 15 
306 1 RECORD_ATTR: : recere eter tute block 
30 ~=2BB b308 1 PUSHR #*M<R4,R5> @ pgin 
B35 18 SSB PRIRSV ATR REC, RJRSL_ATR_ FLAGS ( 7) ; “indicate REC 
20 28 030D 19 MOVC3 #RJRSC “RECATREEN, - ; copy the record attributes 
04 B5 Bayh $0 @ATRSL~ADDR(RS) ,- ee 
OOA4 (7 11 1 RIRSt REC_ATTR(R7? ee 


J 4 


oe ge al COMMON mee FILE ut dt B49 90:13:06 AX/VMS Macro V04-00 
v04- Routines to journal CREATE attributes. -SEP=1984 16:21: RMS.SRCIRMOCRECOM.MAR; 1 
¢ POPR #*M<RSG,RSD 3; restore pointers 
RSB ; to main routine 


.+ 


+ 
; Expiration Date 


date 
R.IRSL_ATR FLAGS (R?) : indicate EXPIRE 
Ro -°PIRE(R7) ; copy expiration date 


7 
0 : to main routine 


30 A 

05 

50 A704 BS 3 
3 


N22 00 NNO 


NKR SS SS 


5 

° 

5 EXPIRE: ; expiration 
9 SSB 

g 


oO 


RMOCRE COM COMMON 
RM$J 
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-SEP=1984 16:21: RMS. SRCJRMOCRECOM.MAR; 1 (11) 
rp .SUBTITLE RMSJNL_CREATE | 
RMSJNL_CREATE 


This routine writes create journal entries for Al, Bl, or RU journal. 
AT creates are done later. 


; Input Parameters: 
r9 - IFAB 
; Implicit Inputs: 


JNLBDB = to describe jounal buffer used for $CREATE 
RJB - to see if journaling is turned on, input to RM$WRITEJNL 


Output Parameters: 

r0 - status of operation 
; Implicit Outputs: 

SCREATE journal entries are written. 
Side Effects: 

None. 


RMSJNL_CREATE: 


DDS DED DEDEDE DEDEDE TTT Be BB EE EWI 


000000000 60 09 69 09 00 09 09 G9 GD Cd 09 Cd Cd Cd Od Cd Cd Cd Cd OS 09 CO CD Cd Cd Cd Cd CO CO CD CD CO CO CO CO CO CO CO CO COCO CO CDCOCOCDODODOCDODODCD mn 
—=DOOO NOU EWR 0 OO NAME WIN SO OO NAME WW OS OD NAME WN OO OONAUE WN OOONOUM 


0070 8F 8B PUSHR #*M<R4,R5,R6> 3; save work registers 
56. 01 ~=——»0 MOVL #1,R 3 anticipate success 
54 30 A9 00 MOVL IFB$L_JNLBDB(R9Y) ,R4 3; get address of BDB 
55 00A4 C9 00 f MOVL IFBSL_RJB(R9) ,R5 ; and get address of RJB 
14 AS 0104 BF BO 7 MOVW #RJRSC_FILNAMLEN,BDBSW_NUMB(R4) ; size of buffer to write 
v7 606S30—COD 7 MOVQ R3,-(SP) ; init input to RMSWRITEJNL with 
7 ; longword BDB address and longword 
7 ; to be overwritten by journal type 
OF OA AS 01 «ET 7 #RJBSV_BI,RJBSW_FLAGS(R55S,10$ ; branch if no BI 
6— O02 QA 7 MOVZBL #CJF$_B1,(SP) 3 type of journal 
00000059" F ig 7 RMSWRTJNL_OBJ 3 write jnl entry as OBJECT_ID 
0350 € 7 BLBS RO, 10$ ; skip on success 
56 50 00 rt! : 108 MOVL RO,R6 3; save error code 
OF OA AS 02 €1 O34F 88 BBC #RJBSV_AI,RJBSW_FLAGS(R55,20$ ; branch if no Al 
6E 03 GA 0354 88 MOVZBL #CJF$_KI, (SP) ; type of journa 
00000000: F 1g 57 8 JSB RMSWRTJNL_OBJ ; write jnl entry as OBJECT_ID 
0350 € 5D 8 BLBS RO,20$ 3; skip on success 
56 50 00 é3 : 208 MOVL RO,R6 3; save error code 
1A 0A AS 00 E1036 8 BBC #RIBSV_RU,RJBSW_FLAGS(R5),30$ ; branch if no RU 
51 00000000' 9F 00 68 8 MOVL #CTLSGL_RUF ,R1 ; don't write entry if no active RU 
ie of 9 BEQL ; No Rute no RU. 
0c 11 a1 01—=sé€#T 1 89 BBC WRUCBSV_ACTIVE ,RUCBSB_CTRL(R1),30$ ; no active RU 


CREATE FILE 16-SEP=1 0:15: AX/VMS Macro V04-00 Page 20 
CREATE g- Ser 7 90:4 3:96 LRMS SRCJRMOCRECOM.MAR: 1 ° (3) 
6 38 MOVZBL #CJFS$_RU,(SP) 3; type of journal 
7 9 JSB RMSURTING.O OBJ ; write jn entry as OBJECT_ID 
7F 94 MOVL RO,R6 3; save status code 
| 95 30$: : 
38 MOVL R6,RO ; 
8 89 ADDL2 #8,SP 3; clean up stack 
88 898 POPR #*M<R4,R5,RO> 3; restore work registers 
8C 386899 RSB : return to caller 
8D 900 
8D 901 ~ END 
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RMOCRECOM COMMON CREATE FILE i ot dt 9 90:13:06 Aes Macro V04-00 Page 44 
Symbol table =SEP=1984 16:21: RMS.SRCJRMOCRECOM.MAR; 1 (11) 
RJBSW_FLAGS = 0000 9 A SETHBK_BR 0 196 2 1 
RJRS$B_ENTRY_TYPE = 0000 SETTMP 8 B6 R 1 
RJRSB_FNS = 000000 SETUP 6B R 1 
RJRSB_OPER = 4! SS$_NORMAL 2 st 49 
RJR$B_ORG = 000 4 TABSC_EXPIRE = 00 o8006 

RJRSC_F ILENAME = sed TABSC_FILE_PRO 2 444 1 
RJRSC_FILNAMLEN = i 1€4 TABSC_FILE-UIC = 0000 4 
RJRSC_RECATRLEN = 000 B8¢0 TABSC_RECORD_ATTR = e444 
RJRSL_ATR_FLAGS = 0000003C¢ TAGSE USER CHAR = 00000000 
RJRSL_PROT z 4 oe TABLE QO00001A R 01 
RJRSL_UCHAR = 0000004¢ USER_CHAR 000002E5 R 01 
RJRSL_UIC = Moonee XABST_ALL = ata ge 
RJR$Q_EXPIRE = 0000005 XAB$C_ALLLEN = 00000020 

RJRSS_F ILENAME = 00000100 ABSC_ANY = 00000000 
RJRST_C_FIB = 00000064 XABSC_DAT = 00000012 

RJRST_F TLENAME = 0000004 XABSC_DATLEN_V2 = 00000024 
RJRST_REC_ATTR = Q00000A4 XABSC_FHC = 0000001D 
RJRSV_ATR_EXPIRE = 00000004 XABSC_FHCLEN = 0000002C 
RJRSV_ATR_PR = 00000001 XABSC_JNL = 00000022 
RJRSV_ATR_RE = 00000003 XABSC_JNLLEN = 0000003C¢ 
RJRSV_ATR_UCHAR = 00000000 XABSC_PRO = 00000013 
RJRSV_ATR = 00000002 XABS$C_PROLEN_V3 = 00000010 
RJR$_CREATE = 00000004 XABSC_RDT = 0000001E 
RMSACLOC_RJB_BDB eeeeeeee xX 01 XABSC_RDTLEN = 00000014 
RMSASSJNC teeeeeee =X 01 XBC$C_CREALL1 eeeeeeee X 01 
RMSCLSCU teeeeeee =X (01 XBC$C_CREALL2 eeeeenee =X (01 
RMSCREACC_SET1 teeeeeee = X 04 XBC$C_CREJNL teeneeee = X (01 
RMSCREACC_SET2 teeeeere =X 01 XBC$C_CREPRO eeeeeeee XX 01 
RMSCREACC” SETS eeeeeeee = X (01 XBC$C_CREPRO1 eeeeeeee = X 01 
RMSCREATECOM 0000004A 01 XBC$C_OPNDAT teeeeeee XX 01 
RMSF CPF NC teeeeeee = X (01 XBC$C_OPNF HC eeeeeeee = X 01 
RMSFCPFNC_P4 teeeeeee = X (01 XBC$C_OPNRDT aeeeeeee = X (01 
RMSFCP_P4-P teeeeeee = X 01 XI TPOP OOOO0O1EA R 01 
RMSF ILCNAR aeeeeeee = X 01 

RMSGETFILNAM teeeeeee = X 01 

RMSGETJ eeeeeeee =X 8 01 

RMSGETSPC1 teeeeeee = X 01 

RMSINI_CRE_RJR 0000026D 01 

RMSJNL~ CREATE 00000322 01 

RMSMAPERR teereeee XX 01 

RMSOPEN Reeekeeee x 01 

RMSRETSPC1 teeeeeee =X 01 

RMSRTVINL eeeeeeee =X 01 

RMSSETDID teneeeee = X (1 

RMSSETEBK teeeeere =X 01 

RMSSE THB eeeeeeee = X 01 

RMSWRTJNL_OBJ eeeeeeee = X 01 

RMS$XAB_SCAN eeeeeeee = X 01 

RMS$_AL = 00018404 

RMS$_CRE = 0001 FOO 

RMS$_ JOP = 000187E4 

RMS$ = a bh tat 

RUCBSB_CTRL = aed 

RUCBSV_ACTIVE = 00000001 

SET po RgT AA 91 

SETEBK 00001C1 1 

SE THBK 00000181 01 


Psect synopsis <SEP=1 


peewee naa a wee + 
! Psect synopsis ! 
-oemen ease eneaone + 
PSECT name Allocation PSECT No. Attributes 
ABS 89088000 ( 0.) OO ¢ OO.) NOPIC USR CON ABS LCL NOSHR NOEXE 
RMSRMSO BR bbe 8D (¢ 909.) 01 Tet P USR CON REL GBL NOSHR EXE 
$ 00000000 < 0.) O02 ¢ 2.) NOPIC USR CON ABS LCL NOSHR EXE RD 
peor mer emcee mone ema n emo mw + 
: Performance indicators ! 
Phase Page faults CPU Time Elapsed Time 
Initialization 3 00:00:00.09 00:00:00.63 
Command processing 1s 00:00:00.75 00:00:05.48 
Pass 1 628 00:00:27.26 00:01:18.43 
Symbol table sort 9 00:00:04.53 00:00:09.44 
Pass 2 16 BF 88 00. 38 00:00:13.30 
Symbol table output 24 00:00:00.23 00:00:01.21 
Psect synopsis output 2 00:00:00.02 00:00:00.02 
Cross-reference output 0 ed Se 00:00:00.00 
Assembler run totals 984 00:00:37.93 00:01:48.54 


The working set Limit was 1950 pages. é 

154836 bytes (303 pages) of virtual memory were used to buffer the intermediate code. 

There were 160 pages of symbol table space allocated to hold 3042 non-local and 38 local symbols. 
901 source Lines were read in Pass 1, producing 17 object records in Pass 

40 pages of virtual memory were used to define 39 macros. 


+ 
! Macro Library statistics ! 
+ 


Sate een eee en enews tee mere ee $ 


Macro Library name Macros defined 


.$255$DUA28: CRMS..OBJJRMS.MLB; 1 20 
_$255$DUA28: (SYS.OBJJLIB.MLB; 1 5 
$255$DUA28: CSYSLIBISTARLET.MLB;2 10 
TOTALS (all libraries) 35 


3181 GETS were required to define 35 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1S$:RMOCRECOM/OBJ=0BJ$:RMOCRECOM MSRC$:RMOCRECOM/UPDATE=(ENH$:RMOCRECOM) +E XECML$/LIB+LIB$:RMS/LIB 


RMOCRECOM COMMON CREATE FILE 1 ths 90:33:96 AX/VMS Macro V04-0 
984 16:21:51 CRMS.SRCIRMOCRECOM. 


NORD NOWRT NOVEC BYTE 
RD NOWRT NOVEC BYTE 
WRT NOVEC BYTE 
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